
	jmp blinkappr

blrate
	*=*+1

blinkappr

	ldx #16
	ldy #1
	sty blrate

__ab
	lda $d012
	cmp #$f0
        bne __ab

	dey
	bne __ab

	lda $d011
	eor #16
	sta $d011

	lda blrate
	adc #16
	sta blrate
	ldy blrate

	dex
	bne __ab

